home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 14 / Wagon < prev   
Text File  |  1995-03-11  |  515b  |  32 lines
  1. animate 30
  2.  
  3. define wheel [    ; define a wheel with six "spokes"
  4.    line
  5.    line rotate 60
  6.    line rotate 120
  7.    circle
  8. ]
  9.  
  10. define wagon [
  11.    square           ; body of wagon
  12.       scale 5,2
  13.    wheel            ; front wheel
  14.       scale 2  
  15.       rotate  0:-210
  16.       translate 2.5,-1 
  17.    wheel            ; rear wheel
  18.       scale 2
  19.       rotate 15:-195
  20.       translate -2.5,-1
  21.    square           ; handle
  22.       xtranslate 0.5 
  23.       scale 4,0.2
  24.       rotate -30
  25.       translate 2.3 0.8
  26. ]
  27.  
  28.  
  29. wagon xtranslate -5:5
  30.  
  31.  
  32.